%
dim classcode,id
classcode=request("classcode")
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from products where id="&id&""
rs.open sql,conn,1,1
style_no=rs("style_no")
style_nourl=replace(style_no," ","-")
style_nourl=replace(style_nourl,"&","-")
set rs2=Server.CreateObject("Adodb.RecordSet")
sql2="select * from proclass where classcode="&rs("classid")&""
rs2.open sql2,conn,1,1
%>